Eros - Digital Erotica & Games/Eros - Digital Erotica & Games.iso/mac/EROS vol.1/EROS vol.DXR/00103.ls

Text File | 1995-07-07 | 1.6 KB | 78 lines

on movPrep
  global md1, md2, md3, md4, md5, md6, rantime, mp, ran, movPC
  setnavi()
  puppetSprite(4, 1)
  set md1 to the duration of cast the castNum of sprite 4 - 3
  set mp to 4
  set movPC to 4
  if the castNum of sprite 5 = 0 then
    set md2 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(5, 1)
  set md2 to the duration of cast the castNum of sprite 5 - 3
  set mp to 5
  set movPC to 5
  if the castNum of sprite 6 = 0 then
    set md3 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(6, 1)
  set md3 to the duration of cast the castNum of sprite 6 - 3
  set mp to 6
  set movPC to 6
  if the castNum of sprite 7 = 0 then
    set md4 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(7, 1)
  set mp to 7
  set movPC to 7
  set md4 to the duration of cast the castNum of sprite 7 - 3
  if the castNum of sprite 8 = 0 then
    set md5 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(8, 1)
  set movPC to 8
  set md5 to the duration of cast the castNum of sprite 8 - 3
  if the castNum of sprite 9 = 0 then
    set md6 to 0
    if the machineType = 256 then
      ranit()
      exit
    else
      exit
    end if
  end if
  puppetSprite(9, 1)
  set movPC to 9
  set md6 to the duration of cast the castNum of sprite 9 - 3
  if the machineType = 256 then
    ranit()
    exit
  else
    exit
  end if
end